home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / FROMUTS / PSION / !Psion_Data_PRINTDIG < prev    next >
Encoding:
Text File  |  1990-08-25  |  976 b   |  36 lines
  1. PRINTDIG:(TOPUDG%,NUM%)
  2. LOCAL BOTTUDG%
  3. BOTTUDG%=TOPUDG%+4
  4. IF NUM%=0
  5. UDG:(TOPUDG%,14,31,27,27,27,27,27,27)
  6. UDG:(BOTTUDG%,27,27,27,27,27,27,31,14)
  7. ELSEIF NUM%=1
  8. UDG:(TOPUDG%,2,6,14,6,6,6,6,6)
  9. UDG:(BOTTUDG%,6,6,6,6,6,6,15,15)
  10. ELSEIF NUM%=2
  11. UDG:(TOPUDG%,14,31,27,27,3,3,3,7)
  12. UDG:(BOTTUDG%,14,28,24,24,24,24,31,31)
  13. ELSEIF NUM%=3
  14. UDG:(TOPUDG%,14,31,27,27,3,3,3,15)
  15. UDG:(BOTTUDG%,15,3,3,3,27,27,31,14)
  16. ELSEIF NUM%=4
  17. UDG:(TOPUDG%,24,24,24,24,24,27,27,27)
  18. UDG:(BOTTUDG%,27,27,31,31,3,3,3,3)
  19. ELSEIF NUM%=5
  20. UDG:(TOPUDG%,31,31,24,24,24,24,30,31)
  21. UDG:(BOTTUDG%,3,3,3,3,27,27,31,14)
  22. ELSEIF NUM%=6
  23. UDG:(TOPUDG%,14,31,27,24,24,24,24,30)
  24. UDG:(BOTTUDG%,31,27,27,27,27,27,31,14)
  25. ELSEIF NUM%=7
  26. UDG:(TOPUDG%,31,31,3,3,3,3,7,14)
  27. UDG:(BOTTUDG%,28,24,24,24,24,24,24,24)
  28. ELSEIF NUM%=8
  29. UDG:(TOPUDG%,14,31,27,27,27,27,31,14)
  30. UDG:(BOTTUDG%,14,31,27,27,27,27,31,14)
  31. ELSEIF NUM%=9
  32. UDG:(TOPUDG%,14,31,27,27,27,27,27,31)
  33. UDG:(BOTTUDG%,15,3,3,3,27,27,31,14)
  34. ENDIF
  35. RETURN
  36.